BEGIN 
 SCALAR J;
 SCALAR PROCEDURE FOO;
   BEGIN 
   RETURN(3);
   END ;
 PRINT("hey");
 COBEGIN 
  PRINT(1);
  PRINT(2);
  PRINT(FOO);
 COEND ;
 PRINT(J,"bye");
 END